VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "domainMetaJRK"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

Option Explicit

Private A_IDFC As Long
Private A_ProcessName As String
Private A_BCJ As String
Private A_GJ As Double
Private A_MS As Double
Private A_Date As String
Private A_CUN As String
Private A_CN As String
Private A_IP As String
Private A_BCFC As String
Private A_MF As String
Private A_PH1 As Long
Private A_PH2 As Long
Private A_EDP As String
Private A_GH As String
Private A_GHExtend As String
Private A_ZGZ As Double
Private A_DZ As Double
Private A_KJZ As Double
Private A_KJZNP As Double
Private A_Class As String
Private A_BZFS As String
Private A_Description As String
Private A_DTRK As String


Public Property Let IDFC(ByVal vData As Long)
    A_IDFC = vData
End Property

Public Property Get IDFC() As Long
    IDFC = A_IDFC
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Property Let ProcessName(ByVal vData As String)
    A_ProcessName = vData
End Property

Public Property Get ProcessName() As String
    ProcessName = A_ProcessName
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Property Let BCJ(ByVal vData As String)
    A_BCJ = vData
End Property

Public Property Get BCJ() As String
    BCJ = A_BCJ
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Property Let GJ(ByVal vData As Double)
    A_GJ = vData
End Property

Public Property Get GJ() As Double
    GJ = A_GJ
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''


Public Property Let MS(ByVal vData As Double)
    A_MS = vData
End Property

Public Property Get MS() As Double
    MS = A_MS
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Property Let szDate(ByVal vData As String)
    A_Date = vData
End Property

Public Property Get szDate() As String
    szDate = A_Date
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''


Public Property Let CUN(ByVal vData As String)
    A_CUN = vData
End Property

Public Property Get CUN() As String
    CUN = A_CUN
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Property Let CN(ByVal vData As String)
    A_CN = vData
End Property

Public Property Get CN() As String
    CN = A_CN
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''


Public Property Let IP(ByVal vData As String)
    A_IP = vData
End Property

Public Property Get IP() As String
    IP = A_IP
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''



Public Property Let BCFC(ByVal vData As String)
    A_BCFC = vData
End Property

Public Property Get BCFC() As String
    BCFC = A_BCFC
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''



Public Property Let MF(ByVal vData As String)
    A_MF = vData
End Property

Public Property Get MF() As String
    MF = A_MF
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''


Public Property Let PH1(ByVal vData As Long)
    A_PH1 = vData
End Property

Public Property Get PH1() As Long
    PH1 = A_PH1
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''



Public Property Let PH2(ByVal vData As Long)
    A_PH2 = vData
End Property

Public Property Get PH2() As Long
    PH2 = A_PH2
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''


Public Property Let EDP(ByVal vData As String)
    A_EDP = vData
End Property

Public Property Get EDP() As String
    EDP = A_EDP
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''


Public Property Let GH(ByVal vData As String)
    A_GH = vData
End Property

Public Property Get GH() As String
    GH = A_GH
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Property Let GHExtend(ByVal vData As String)
    A_GHExtend = vData
End Property

Public Property Get GHExtend() As String
    GHExtend = A_GHExtend
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Property Let ZGZ(ByVal vData As Double)
    A_ZGZ = vData
End Property

Public Property Get ZGZ() As Double
    ZGZ = A_ZGZ
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''


Public Property Let DZ(ByVal vData As Double)
    A_DZ = vData
End Property

Public Property Get DZ() As Double
    DZ = A_DZ
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''


Public Property Let KJZ(ByVal vData As Double)
    A_KJZ = vData
End Property

Public Property Get KJZ() As Double
    KJZ = A_KJZ
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''


Public Property Let KJZNP(ByVal vData As Double)
    A_KJZNP = vData
End Property

Public Property Get KJZNP() As Double
    KJZNP = A_KJZNP
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''


Public Property Let Class(ByVal vData As String)
    A_Class = vData
End Property

Public Property Get Class() As String
    Class = A_Class
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''


Public Property Let BZFS(ByVal vData As String)
    A_BZFS = vData
End Property

Public Property Get BZFS() As String
    BZFS = A_BZFS
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''





Public Property Let Description(ByVal vData As String)
    A_Description = vData
End Property

Public Property Get Description() As String
    Description = A_Description
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''




Public Property Let DTRK(ByVal vData As String)
    A_DTRK = vData
End Property

Public Property Get DTRK() As String
    DTRK = A_DTRK
End Property
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

